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EDTSCHMINDATE - insert date and time 
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ZTITLE 


"EDTSCH Sap lal - insert date and time 
MODULE EDTSCHMIND 


ATE ' Date/time module 
pDENT = ‘v04-000' 
BEGIN 


Lee RRR RA AAAAAAAAEAAAAAERAEE EERE EEE EEE AEA AAAAEAERAKERE AAA 
' 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
!® ALL RIGHTS RESERVED. 


® 
® 
® 
® 
. ® 
it re  iccte ie tele UNDER A LICENSE AND MAY BE or AND og Ld * 
'* ONLY IN ACCORDANCE WITH THE as OF SUCH Tt SE ~ we THE * 
:* INCLUSION OF OTHE ABOVE oy eretnee OTICE. THIS SOFTWARE OR OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
!® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'® TRANSFERRED. e 

*® 
!# THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
!® CORPORATION. * 
: ® 
'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR > peamimapaa OF ITS * 
!t SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL * 

® 

* 

* 


Lee RARER RAAT AAA AREA EATER 
' 


FACILITY: EDT -- The DEC Standard Editor 

| ABSTRACT: 
This module contains the routine which calls a system specific 
routine to get the date and time and inserts it. 

i ENVIRONMENT: Runs at any access mode - AST reentrant 

i AUTHOR: Shelly T. Solomon CREATION DATE: 31-Aug-1981 

{| MODIFIED BY: 

_1-001 - Original. STS 31-Aug-1981 


! File: CHMINDATE.B32 Edit: 
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1erSep-1986 f2:oe:84 Lepr .saCHcHAINDAYE BL 1 
time ' 
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EDTSCHMINDATE EDTSCHMINDATE - insert date and time 16-Sep-1984 00:00:31 AX-11 Bliss-32 V4. 
04 ~000 Declarations 12280 8- 1982 993993, LED T SREICHMINOATE 


: 3} 0930 } RSBTTL ‘Declarations’ 

: ¢ 24 1 ! TABLE OF CONTENTS: 

; 5 B26 1! 

; 654 $ 1 

$ 2? O33 : REQUIRE "EDTSRC:TRAROUNAM'; 
$ 8 0494 1 FORWARD ROUTINE 

.. we 0495 1 EDTSSINS_DATIM : NOVALUE; ‘insert date and time 
; pee 1 

3 60 0497 1! 

$ 61 049 1 ! INCLUDE FILES: 

3 o¢ 049 1! 

;s 6 0500 1 

; 664 9301 1 REQUIRE 'EDTSRC:EDTREQ'; 
; 63 0636 1 

; 66 0637 1! 

; 67 0638 1 ! MACROS: 

; 6&8 0639 1! 

; 69 0640 1! NONE 

: 70 0641 1! 

4 71 Beeg 1 ! EQUATED SYMBOLS: 

; 7 0643 1! 

3 7 0644 1! NONE 

HY 74 0645 1! 

: 75 0646 1 ! OWN STORAGE: 

; 76 0647 1! 

$ 77 0648 1! NONE 

;s 0649 1! 

+4 79 0650 1 ! EXTERNAL REFERENCES: 

; © 0651 1°! 

3 81 0652 1! In the routine 
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EDTSCHMINDATE EDTSCHMINDATE = insert date and time 1b-Se -1984 00:00:31 AX-11 Bliss-32 V4.0-74 Page 3) 

Oe. 000 EDTSSINS_DATIM = Date/Time ried ba 1e-8ep-19 4 99:99:31 YEO SREICHAINOAYE OL 144 . (3) 
; 3 06 ; 1 ZSBTTL "EDTSSINS_DATIM = Date/Time routine’ | : 
: 85 06 5 1 GLOBAL ROUTINE EDTSSINS_DATIM ! Date routine ; 
: 86 656 1 : NOVALUE = | 
: 88 0658 1 !+4 | ; 
: 34 8022 1 | FUNCTIONAL DESCRIPTION: : 
° . ! e 
s 9 bee) 1! This routine calls a system specific routine to get the date F 
s 9 066 1! and time as an ascii string, and inserts it into the text at the $ 
; § 0665 1! cursor position. | F 
; 8 ges i : 
: %6 066 | FORMAL PARAMETERS: | 
: 98 0668 1 ' SUCCEED status of string insert : 
; 9 0669 1! LEN Length of final string | : 
3 4 peed : } BUF buffer to build string in : 
: 108 0672 1! IMPLICIT INPUTS: : 
; 7 0675 1! 3 
: 108 oes] | sae 
> 106 0676 1 ! IMPLICIT OUTPUTS: : 
: 107 0677 1! 3 
: 109 ber) 1 | —_ 
: 110 0680 1 ' ROUTINE VALUE: : 
fie bes 1 i 
; AF B08; ; 0 = failure, 1 = success : 
> 115 0685 1 | SIDE EFFECTS: : 
s 16 0686 1! | : 
; 118 0688 1 | : 
: 119 0689 1 !-- : 
> 120 0690 1 ; 
; is! sed 2 BEGIN | : 
> 123 069 ; EXTERNAL ROUTINE , : 
; 124 0694 EDTSSGET_DATE, ‘System date routine | ; 
3 1g? pene EDTSSINS_CHS; ‘insert string into text | : 
: 13 O69? OCAL | : 
; 128 698 SUCCEED, ‘return status J : 
3 34 0699 LEN, j tongse of date string : : 
; 13 3780 : BUF : BLOCK CCHSALLOCATION (24)]; ! buffer in which to Construct string | : 
: 13 070 LEN = 0; ; 
3 138 345 EDTSSGET_DATE (LEN, BUF); ' call system specific routine for date/time | : 
; 135 9705 Now we have the date and time as an ascii string, insert it into text buffer | : 
: 139 44:24 syyceee id 1 al ca (CHSPTR (BUF), .LEN); | ‘ 
; 139 0709 1 END; ! End of routine EDTS$INS_DATIM | : 

| 


EDTSCHMINDATE 
v04-000 


; Routine Size: 


EDTSCHMINDATE = insert date and time 16- 
EDTSSINS_DATIM = Date/Time routine 14- 


0000 00000 

5E 18 C2 Ht 

7E D4 0000 

04 AE 9F 00007 

04 AE 9F QOOOA 

000000006 00 02 FB 0000D 
6E DD 00014 

08 AE 9F 00016 

000000006 00 02 FB 00019 
04 00020 


33 bytes, Routine Base: _EDTSCODE + 0000 


710 #1 
711 1 «!<BLF/PAGE> 


- TITLE 
- IDENT 
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EDTSCHMINDATE EDTSCHMINDATE = insert date and 
\V04-000\ 

EDTSSGET_DATE, EDTSSINS_CHS 
-EDTSCODE,NOWRT, SHR, PIC,2 
EDTSSINS_DATIM, Save nothing 
#24, SP 

L 

BUF 

LEN 

#2, EDTSS$GET_DATE 

LEN 


BUF 
#2, EDTSSINS_CHS 
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0655 
0702 
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0709 


un Time: 00:09. 
Toenad Time: 00:13.2 
Lines/CPU Min: 4631 
Lexemes/CPU-Min: 12480 

"Y Used: 55 pages 
Compilation Complete 
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EDTSCHMINDATE EDTSCHMINDATE = insert date and time 16-Sep-19 AX-11 Bliss-32 V4.0-74 Pa 5 | 
v04-000 EDTSSINS_DATIM = Date/Time routine 14- ates =| 198 99: 99: Hy EDT. SREICHAINOATE - BLI; = (4) | 
143 0712 1 END ! End of module EDTSCHMINDAT 
ide ov18 ' End of module EDTSCHMINDATE 
145 0714 0 ELUDOM 
| 
; PSECT SUMMARY 
: Name Bytes Attributes 
: -EDTSCODE 33 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
erm ee Se A Syakeols commeece Pages Processing 
: File Total Loaded Percent Mapped Time 
> _$255$DUA28:CEDT.SRCJEDT.L32;1 377 0 0 40 00:00.2 
3 ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
3 COMMAND QUALIFIERS 
: SSL SeE a Pee CEL DUE TEAS OPT IRLEE SUT OM ERLE A, SEM, ESD C UNEP TE UR IOS SCORN MSRC$: CHMINDATE .BLI/UPDATE=(ENH$:C | 
é 
Size: 33 code + 0 data bytes | 
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